DESCRIPTION OF CHANGE 


DATE OF CHANGE: 8-10-76 
SYSTEMS AFFECTED: 4662A01 UTILITY ROUTINES 
SUBROUTINES AFFECTED: BUFFPK 
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SYMPTOMS: 

WHEN THE PLOTTER 15 OPERATING IN BLOCKNODE, ALL DATA THAT IS 
RECIEVED BETWEEN BLOCKS IS IGNORED. BECAUSE OF THIS IT IS 
NECESSARY TO CHANGE THE PLOTTER TO CONTINUOUS MODE WHEN THE 
BUFFER IS DUMPED. 


DEFINITION OF CHANGE (DETAILED): 


OLD CODE 
~ 495 IDATA(1)#27 
| IDATA(2)*IDEVIC 
a IDATA(3)#=40 
Nw _ NODATA#S 
8 LENOUT=3 
59 KOTLET*MAXLEN-LENOUT-ITRAIL 


NEW CODE 
495 IDATA(1)=27 
IDATA(2}*IDEVIC 
( X IF THE BUFFER WAS DUMPED AT THE USERS REQUEST THEN WE MUST. - 
C X OUTPUT A PLOTTER ON COMMAND TO REMOVE IT FROM BLOCKMODE 
IF (NCHAR .GT.6)GO TO 497 
IDATA(3)=69 
CALL ADEOUT(3, IDATA) 
497? IDATA(3)=40 
NODATA#1 
LENOUT=3 
50 KOTLFT = MAXLEN- -LENOUT- ITRAIL 


"DESCRIPTION OF CHANGE NUMBER: 1 
END OF INFORMATION ENCOUNTERED. 
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DATE OF CHANGE: 11-04-76 
SYSTEMS AFFECTED: 4662A@1 PLOT 10 UTILITY ROUTINES 


SUBROUTINES AFFECTED: 
PLON 

_ SYMPTOMS: 
THE SOFTWARE WOULD NOT PROPERLY SWITCH TO CONTINUOUS 
MODE FROM BLOCKMODE IF THE COMMAND VAS GIVEN WHILE THE 
PLOTTER VAS OFF. 


- DEFINITION OF CHANGE (DETAILED): 


OLD CODE 


SUBROUTINE PLON 


IF(ION.EQ.1)G0 TO 999 

- © & SAVE THE TERMINAL STATUS AREA 
CALL SUSTAT(TASTAT) 
ICODE(2 )=IDEVIC 
CALL TOUTST(3. CODE) 
CALL BUFFPK(8, ICODE ) 
IFCIPBAUD.NE.@)GO TO SO 


61 IB(T)=PLSTAT(I+19) 
GO TO 999 - 

108 = PLSTATU )#0.8 
DO 150 Je1,5 


NEW CODE 


oe ae 


SUBROUTINE PLON 


IF(ION.EQ.1)G0 TO 999 


ICODE(2)=IDEVIC 
CALL TOUTST(3. ICODE) 
CALL BUFFPK(@,ICODE) © 

€ % SAVE THE TERMINAL STATUS AREA 
CALL SUSTAT(TASTAT) 
IFCIPBAUD.NE.@)G0 TO 56 


61 IB(I)=PLSTAT(I+19). 

IFCIPBAUD.£0.0.0R.KUNIT.NE.5) GO TO 999 
€ % THE PLOTTER HAS BEEN CHANGED FROM BLOCKMODE TO CONTINUOUS MODE 
C % WHILE THE PLOTTER WAS OFF. 

KUNIT=TMSTAT(60) 

KTRAIL=TMSTAT(26) 

KACHAR*KOBLEN-KTRAILL 

GO TO 999 
109 PLSTAT(9)=0.0- 

“po 150 J*t.5 


DESCRIPTION OF CHANGE NUMBER: 477 


DESCRIPTION OF CHANGE : 
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‘DATE OF CHANGE: 11-04-76 


SYSTEMS AFFECTED: 466cA01 PLOT 10 UTILITY ROUTINES 


SUBROUTINES AFFECTED: 
BAKSP. BUFFPK. PENLOC. DAGIN 
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SYAPTOMS : 
DOC #1 (8-10-76) YAS NOT COMPATIBLE WITH BLOCKMODE 
OUTPUT AND GRAPHIC INPUT. IF THE PLOTTER IS SWITCHED 


TO CONTINUOUS MODE FROM BLOCKMODE. THEN THE GIN REQUESTS 
DON’T RESPOND. 


CHANGES TO SUBROUTINES BAKSP AND DMGIN WILL HANDLE THE 
4986 AS TERMINAL TYPE Q. | 


DEFINITION OF CHANGE (DETAILED): 


OLD CODE 


- SUBROUTINE BAKSP 


IF (KKMODE .NE. B)CALL ALFMOD 
C & OUTPUT (BS) 

CALL _TOUTPT(8) 

IF(ION.EQ@.0)G0 TO 5 


5 KBEANX=KBEAMX-(KHORSZ+KFACTR/2 )/KFACTR 
IF(KBEAMX.GE.9)G0 TO 19 
KBEANX=KBEAMX+4095/KFACTR 

19 RETURN 
END 


SUBROUTINE BUFFPK(NCHAR. IOUT) 


C3 IF THE BUFFER VAS DUMPED AT THE USERS REQUEST THEN VE AUST 
Dz 


OUTPUT A PLOTTER ON COMMAND: TO REMOVE IT FROM BLOCKMODE 


IF(NCHAR.GT.@)GO TO 497 
DATA(3)*69 


SUBROUTINE PENLOCCIPEN, IX, IY) 


C3 REQUEST THE PEN POSITION FROM THE PLOTTER 


ICODE(2)=1DEVIC 
CALL TOUTST(3, ICODE) 
“KINLFT=8 


IPEN*ICHAR/4- ~ICHAR/ B42 
999 RETURN 
END 


SUBROUTINE DAGIN(NUM, NREC, IPEN, KXRAY. KYRAY ) 


DATA KSTOP/35/, ICODE(1 7277, ICODE(2 7267 KCODE(S )/c7/ 
C % IF THE PLOTTER IS ON, GO TO 500 

JF(ION.£Q.1)G0 TO 508 
€ % PLOTTER IS OFF SO. EMULATE THE STANDARD SCURSR 

K=1 


C % RAISE THE CURSOR 


KGNMOD=1 


14@ CALL TOUTST(2, ICODE) 


| KINLFT=@ 


 gg9  KCODE(3)*76 


CALL TOUTST(3,KCODE) 


CALL TSEND 


NEU CODE 


SUBROUTINE BAKSP 


-TFCKKMODE.NE.@)CALL ALFMOD 

C % QUTPUT (BS) 
IF(KTERM.GT.@) CALL TOUTPT(8) 
IF(ION.E@.0)G0 TOS. 


§ KBEAMX=KBEAMX=(KHORSZ+KFACTR/2 )/KFACTR 
IF (KBEAMX.GE.@)GO TO 10 
KBEAMX=KBEAMX+409SKFACTR 

10 IF(KTERM.GT.@) GO. TO 20 
CALL MOVABS(KBEANX. KBEARY ) 

CALL ALFAOD 

28 RETURN 

END 


SUBROUTINE BUFFPK(NCHAR, IOUT) 


Cx IF THE BUFFER UAS DUMPED AT THE USERS REQUEST THEN WE MUST. 
C 2 OUTPUT A PLOTTER ON COMMAND TO REMOVE IT FROM BLOCKMODE 

TF (KGNMOD.£0.1 OR NCHAR GT.@) GO TO 497 : 
TIDATA(3)*69 : 


SUBROUTINE PENLOC(IPEN, IX, IY) 


~4- 


€ & REQUEST THE PEN POSITION FROM THE PLOTTER 
~ ICODE(2 = IDEVIC 
CALL TOUTST(3.ICODE) 
KGNAOD=1 
INLFT#@ 


IPEN= ICHAR/4~ICHAR/8%e 
KGNMOD=@ 

999 RETURN 
END 


SUBROUTINE DAGIN(NUM, NREC, IPEN, KXRAY, KYRAY) 


DATA KSTOP/35/, ICODEGI 7277, ICODE (2) 7267 KCODE(L )/2?/ 
KGNMOD=1 
C 3 IF THE PLOTTER I5 ON, GO TO 500 
IFEION.EG.1)G0 TO 508 ' 
C $ PLOTTER IS OFF SO. EMULATE THE STANDARD SCURSR 
Kei. . 
C % RAISE THE CURSOR 
1@ IF(KTERM.GT.@) CALL TOUTST(2, ICODE) 
KINLF T=. 


680 KCODE(3)«76 
CALL TOUTST(3,KCODE) 
KGNMOD=@ 
CALL TSEND 


DESCRIPTION OF CHANGE HUMBER: 23 


DESCRIPTION OF CHANGE 


Ce lle 


DATE OF CHANGE: {1- 24- -76 
~ SYSTEMS AFFECTED: 4662A01 PLOT 10 UTILITY ROUTINES | 


SUBROUTINES AFFECTED: 
CHRSIZ 


See ere o TS seen ea eT eT Ta ee ae Pe ee oe 


SYMPTOMS : 
AN ERROR WILL OCCUR IN THE FORMAT OF THE OUTPUT IF THE 
USER ATTEMPTS TO CHANGE THE CHARACTER SIZE WHILE USING 
_ TERMINAL TYPE 8 OR 1. 


SUBROUTINE CHRSIZ SHOULD CHECK FOR TERMINAL TYPE 8 OR 1 
BEFORE CHANGING CHARACTER SIZE. 


DEFINITION OF CHANGE (DETAILED): 


OLD CODE 


SUBROUTINE CHRSIZ(1SIZE) 


DATA ICODE(L)7277. 
K*ISIZE 


NEU CODE 


SUBROUTINE CHRSIZ(1S5I1ZE) 


DATA ICODE(1)727/ 

C¢ % CHECK TERMINAL TYPE 
IF(KTERR.LE.1) GO TO 999 
KISIZE | 


DESCRIPTION OF CHANGE NUMBER: 4 


DESCRIPTION OF CHANGE 
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“DATE OF CHANGE: 1-11-77 
SYSTEMS AFFECTED’ 4662A01 PLOT 10 UTILITY ROUTINES 


SUBROUTINES AFFECTED: 
ANSTR 


SYMPTOMS: 
THE DIMENSION STATEMENT FOR IPAD(95) SHOULD BE 1PAD(96). 


DEFINITION OF CHANGE (DETAILED): 


OLD CODE 


— a oe 


(---------- -SUBROUTINE--ANSTR==-------"-==2onnooeoonn= TEKTRONIX, INC.--~- 


DIMENSION TADE(1), TPAD(95) 
THE FOLLOUING DATA STATENENTS CONTAIN CHARACTER DRAWING 


NEW CODE 


~—- woe 


(--~------- SUBROUTINE=-ASTR-=————eaononaa ~------- TEKTRONIX, , INC.---- 


DIMENSION TADE(1), IPAD(96) - : 
C * THE FOLLOWING DATA STATEMENTS CONTAIN CHARACTER DRAWING 


DESCRIPTION OF CHANGE NUMBER: 5 


DESCRIPTION OF CHANGE 
DATE OF CHANGE: 2-1-7: | 
SYSTEMS AFFECTED: 4662AQ1 PLOT 10 UTILITY ROUTINES 
MEDIA: 


@62-2973-01 STD. SOURCE CARD DECK, 26 PUNCH 
@62-2794-01 OPT. 1 SOURCE PAPER TAPE | 


. SUBROUTINES AFFECTED: 


SETBUF 

SYMPTOMS - 
WHEN OUTPUTTING DATA TO THE PLOTTER USING BUFFER TYPE @, 
THE FIRST CHARACTER OF THE BUFFER WILL BE DISCARDED BY 
THE PLOTTER. BUFFER TYPE 2 OPERATES UNDER THE LAST 
CHARACTER ESCAPE (LCE) MODE WHICH DISCARDS ALL INTERLINE 
CHARACTERS. THE LCE MODE 1S CLEARED BY A SYNC CHARACTER, 
HOWEVER. THE PLOTTER IGNORES SYNC CHARACTERS. THEREFORE. 
THE FIRST CHARACTER OF THE BUFFER IS ALSO IGNORED. SETBUF 
SHOULD NOT ALLOW BUFFER TYPE 2 WHEN THE PLOTTER IS ON. 


DEFINITION OF CHANGE (DETAILED): 


OLD CODE 


re ee ae te et tee 


SUBROUTINE SETBUF(KFORM) 


b KINLFT, KOTLFT.KUNIT 2 
C & PROHIBIT CHANGING OUT OF BLOCK MODE (KUNIT*5) 


IF(KUNIT GT. 4)KUNIT#4 
C & SET MAX TRUM OuTPT CHAR COUNT DEPENDING ON BUFFER TYPE 


HEU CODE 
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SUBROUTINE SETBUF (KFORM) 


t KINLFT, KOTLET, KUNIT 

COMMON/TKPLOT/CHORUX, CHORUY, THSTAT(60),PLSTAT(6), XLINEF, ‘YLINEF, 
& 2DEGR, IDEVIC, ION, IPBAUD, IPMAXY, ISIG,.LOC1,LOCe 
~C ¥ PROHIBIT CHANGING OUT OF BLOCK MODE (KUNIT*5) 


IF(KUNIT .GT. 4)KUNIT» 4 

C &% PROHIBIT CHANGING TO BUFFER TYPE 2 IF THE PLOTTER 1S ON 
IF(KUNIT.EQ@.2. AND. ION.EQ. 1 )KUNIT=1 

C X SET MAXIMUM OUTPT CHAR COUNT DEPENDING ON BUFFER TYPE 


REQUEST FOR SEPVICE NUNBER: P7?-24-01 
DESCRIPTION OF CHANGE NUMBER: 6 


DESCRIPTION OF CHANGE 
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DATE OF CHANGE: 3-8-77 


SYSTEMS AFFECTED: 4662AQ1 PLOT 10 UTILITY ROUTINES 
7 | LEVEL 1 


HEDIA: | 
@62-2792-01 SOURCE CARD DECK, @26 PUNCH 
@62-2794-81 SOURCE PAPER TAPE 


SUBROUTINES AFFECTED: 
PLOFF 
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SYAPTOMS: 
IF A DIFFERENT BUFFER TYPE 1S SELECTED FOR THE TERMENAL 
. AND THE PLOTTER, THE TRANSITION IS NOT MADE PROPERLY BY 
THE PLON AND PLOFF ROUTINES. 


DEFINITION OF CHANGE (DETAILED): 


OLD CODE 


SUBROUTINE PLOFF 


C  DUNP THE BUFFER AND SAVE THE PLOTTER STATUS 
IF(ION.£0.@)G0 TO 999 
CALL SUSTAT(PLSTAT) 


HEU CODE 


SUBROUTINE PLOFF 


‘ow 


C x DUMP THE BUFFER AND SAVE THE PLOTTER STATUS 
IF(ION.EQ.0)G0 TO 999 
CALL ALFIMOD 
CALL SUSTAT(PLSTAT) 


_ DESCRIPTION OF CHANGE NUMBER: 7? 
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DESCRIPTION OF CHANGE 
DATE OF CHANGE 3-8-77 _ 


SYSTENS AFFECTED: 4662801 PLOT 10 UTILITY ROUTINES 
LEVEL: 1 


MEDIA: 


Q62~-2792-01 SOURCE CARD DECK. @26 PUNCH 
@62-2794-01 SOURCE PAPER TAPE 


SUBROUTINES AFFECTED: 

PENLOC 
SYNPTONS 

THE VECTOR OPTIMIZATION SHOULD BE CANCELED FOR THE FIRST 
VECTOR WHEN THE PLOTTER IS TURNED ON. SYMPTOMS: THE PLOTTER 
1S TURNED ON, THE POSITION UAS REQUESTED (IMEDIATE GIN) THEN 


THE FIRST NOVE WENT TO THE URONG LOCATION. 


DEFINITION OF CHANGE (DETAILED): 


OLD CODE 


SUBROUTINE PENLOCCIPEN, IX, 1Y) 


_IFCTON.EQ@.0)G0 TO 999 


- © % REQUEST THE PEN POSITION FROM THE PLOTTER 


__ IPEN*ICHAR/4-ICHAR/8x2 
——KGNMOD#@ 
999 RETURN 
END 


NEW CODE 


SUBROUTINE PENLOC(IPEN, IX, IY) 


| IF(ION.£Q.0)G0 TO 999 
CALL: ALFAOD | 
C ¥ REQUEST THE PEN POSITION FROM THE PLOTTER 


IPEN*ICHAR/4-ICHAR/8%2 
KBEAMNX= IX 
KBEANY=TY 
KGNAOD=0 
999 RETURN 
END 


DESCRIPTION OF CHANGE NUMBER: 8 


DESCRIPTION OF CHANGE 
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DATE OF CHANGE 3-8-27 


SYSTEMS AFFECTED: 466cA0) PLOT 10 UTILITY RUETINES 
LEVEL 1 


MEDIA: ' 
Q@62-2792-01 SOURCE CARD DECK. 826 PUNCH 
Q@62-2794-01 SOURCE PAPER TAPE 


SUBROUTINES AFFECTED: 

LINEF . . 

_ SYMPTOMS « 
THE VECTOR OPTIMIZATION SHOULD BE CANCELED FOR THE FIRST 
VECTOR WHEN THE PLOTTER IS TURNED ON. SYNPTOMS: THE PLOTTER 
IS TURNED ON, THE POSITION WAS REQUESTED (IMMEDIATE GIN) THEN 
THE FIRST HOVE WENT TO THE WRONG LOCATION. 


DEFINITION OF CHANGE (DETAILED): 


OLD CODE 


SUBROUTINE LINEF 


MX*XLINEF /FLOAT(KFACTR) 
KBEANX=KBEAMX#MX 
MY*YLINEF/FLOAT(KFACTR) 
_KBEANY*KBEAMY+MY : 
IF(KBEAMX GT MAXX JKBEAMX = MAXX 
IF(KBEAMY. GT MAXY )KBEANY =MAXY 
IF(KBEANX LT. Q)KBEANX-0. 
' IF(KBEAMY LT. @)KBEAMY=0 
Got0e50 


NEW CODE 
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~ SUBROUTINE LINEF 


HX*XLINEF/FLOAT (KFACTR ) 
LOCI *KBEAMX+MX. 
AY=VLINEF FLOAT (KFACTR) 
LOC2*KBEANY+HY_ 
TF(LOCI.LT,O)LOC1=@ 
IF(LOC1 GT. MAXX )LOCI «MAXX. 
TFiLoce.LT.O)LOCe 
IF (LOC2 GT. MAXY LOC2*MAXY 
KBEANX*LOC! 

RBEARY=LOCe_ 

GO TO 256 





DESCRIPTION OF CHANGE NUMBER: 9 


